home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / qbware.exe / SORT.BAS (.txt) < prev    next >
Encoding:
QuickBASIC Tokenized Source  |  1990-11-30  |  3.3 KB  |  90 lines
  1. FnCompress
  2. Verify
  3. Xverify
  4. FnMod
  5. FnTime
  6. CTicks
  7. clock
  8. Minutes
  9. Seconds
  10.     Hundreths
  11. Leftover
  12. Wallm
  13. Wall.Clock
  14. FnTicks
  15. ClTicks:
  16. BsGeTimew
  17. HighR
  18. OHigh
  19. ODays
  20. Clock1
  21. Clock2
  22. Clock.Diff%
  23. Cur.Time
  24. Old.Time
  25. Timep
  26.     Time.Diff^
  27. Target0
  28. Target.FileE
  29. Filenum
  30. Reclen
  31. Input0
  32. Input.Bufferg
  33. File.Len
  34. Invalid
  35. Invalid.Parameter
  36. Invalid.Filename
  37. Count
  38. Array
  39. FileInpt
  40. Sort.Start
  41. Sort.Length
  42. PESort
  43. Num.Of.Elements
  44. Startpos
  45. Sortlen
  46. Sort.Len
  47. ucase
  48. FlCnt
  49. NMALLOC
  50. QSort
  51. Sort.Lenght
  52. Target1
  53. Target1.File
  54. Copyright (c) 1987,1988 Marcel Madonna
  55. SORT.BAS shows the use of the QBWARE sort routine.
  56. * N O T E 
  57. This program cannot be used from the DOS prompt without Microsofti
  58. QuickBasic V4.0 and a registered copy of QBWARE.
  59. To compile it, at the DOS prompt type:
  60.  bc sort; 
  61.  link /ex /noe sort,,,brun40 qbware;
  62.  del sort.obj 
  63.  del sort.map 
  64. This program cannot be run from the QuickBasic environment without
  65. a registered copy of QBWARE.
  66. To run it from the QuickBasic development environment, type:
  67.  qb sort /l qbware
  68.  [Shift] + F5b
  69. To execute SORT just type "SORT" followed by a file specification at the
  70. DOS prompt
  71. Compress.fn'
  72. Modulo.fn'
  73. Time.fn'
  74. Ticks.fn'
  75. Program start
  76. Enter a Filename:"
  77. Enter Starting Position of the Sort field: "
  78. Enter field length: 
  79.  ...Reading input - Please standby
  80.  ...Sorting first 500 records"
  81.  ...Sorting 
  82.  records)
  83. Initialize starting point
  84.  ...Time Started "
  85.  Let's do the sort
  86.  ...Sort ended at 
  87.  ...Total run time: 
  88. Would you like to see the sorted file? (Y/N)
  89.  ...File not found
  90.